home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga News 95
/
Amiga News 95.iso
/
dpat
/
dpat94
/
rexx
/
rtel.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-29
|
1KB
|
53 lines
/*-------------------------------------*/
/* Rtel.rexx v1.1 (c) 1995 Ldfa */
/* */
/* Script de connection sur le serveur */
/* Rtel en T2 pour AmiTEL 2.1 */
/* */
/*-------------------------------------*/
Envoi = '13 41'x
Retour = '13 42'x
Repetition = '13 43'x
Guide = '13 44'x
Annulation = '13 45'x
Sommaire = '13 46'x
Correction = '13 47'x
Suite = '13 48'x
Login = "Mon pseudo" /* Inscrire ici votre pseudonyme */
Passwd = "Mon mot de passe" /* et votre mot de passe */
address AMITEL_REXX /* Nom du Port ARexx d'AmiTEL */
options results
TIMEOUT 60 /* Temps d'attente maximum */
WAIT "service:" /* Attend 'service:' */
if RC ~= 0 then /* Si temps d'attente dépassé */
do
REQINFO "Le serveur ne répond pas!" /* Affiche Resquester */
exit /* Fin du programme */
end
SEND "RTEL1" || Envoi /* Envoi 'RTEL1' */
WAIT "PSEUDONYME" /* Attend 'PSEUDONYME' */
if RC ~= 0 then /* Si temps d'attente dépassé */
do
REQINFO "Le serveur ne répond pas!" /* Affiche Resquester */
exit /* Fin du programme */
end
SEND Login || Envoi /* Envoi pseudonyme */
WAIT "CODE" /* Attend 'CODE' */
if RC ~= 0 then /* Si temps d'attente dépassé */
do
REQINFO "Le serveur ne répond pas!" /* Affiche Resquester */
exit /* Fin du programme */
end
SEND Passwd || Envoi /* Envoi mot de passe */